home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / dev / lang / nrcobol_1e.lha / NRCOBOL1e / COBFILES / security.cob < prev    next >
Text File  |  1998-02-04  |  23KB  |  546 lines
  1.        IDENTIFICATION DIVISION.
  2.        PROGRAM-ID.   SECURITY.
  3.       *PROGRAM DISCRIPTION.
  4.       *
  5.       *  Program to allow ACCESS  and/ or MODIFICATION of student 
  6.       * records, according to the user's security level. This is
  7.       * determined according to the job-code entered.
  8.       * RESPONCE-JOB-CODE  .... AO9-A99 to DO9-D99
  9.       * 
  10.       *AUTHOR.        cHArRiOTt.
  11.       *INSTALLATION.
  12.       *DATE-WRITTEN.
  13.       *DATE-COMPILLED.
  14.       *SECURITY.
  15.        ENVIRONMENT DIVISION.
  16.  
  17.        CONFIGURATION SECTION.
  18.        SOURCE-COMPUTER.   AMSTRAD 1512.
  19.        OBJECT-COMPUTER.
  20.        INPUT-OUTPUT SECTION. 
  21.        FILE-CONTROL.
  22.             SELECT           SECURE-FILE
  23.             ASSIGN TO        DISK
  24.             ORGANIZATION IS  LINE SEQUENTIAL
  25.             ACCESS MODE IS   SEQUENTIAL
  26.             FILE STATUS IS   WS-FILE-STATUS.
  27.  
  28.             SELECT           SECURE-BAK-FILE
  29.             ASSIGN TO        DISK
  30.             ORGANIZATION IS  LINE SEQUENTIAL
  31.             ACCESS MODE IS   SEQUENTIAL
  32.             FILE STATUS IS   WS-FILE-BAK-STATUS.
  33.  
  34.             SELECT           SECURE-PRINT
  35.             ASSIGN TO        PRINTER
  36.             ORGANIZATION IS  SEQUENTIAL
  37.             ACCESS MODE IS   SEQUENTIAL
  38.             FILE STATUS IS   WS-PRINT-STATUS.
  39.       *
  40.        DATA DIVISION.
  41.        FILE SECTION.
  42.        FD SECURE-FILE
  43.             LABEL RECORD IS STANDARD
  44.             VALUE OF FILE-ID IS "SECURITY.DAT2".
  45.        01 IN-STUDENT-REC.
  46.            03 ST-NUMBER        PIC 9(6).
  47.            03 ST-LAST-NAME     PIC X(16).
  48.            03 ST-FIRST-NAME    PIC X(12).
  49.            03 ST-CLASS-STAND   PIC XX.
  50.            03 ST-GRADE-PNT-AVG PIC 9V99.
  51.            03 ST-ACADEM-STATUS PIC X.
  52.            03 ST-PHONE-NUMBER  PIC 9(10).
  53.            03 ST-BIRTH-DATE    PIC 9(6).
  54.       *
  55.        FD SECURE-BAK-FILE
  56.             LABEL RECORD IS STANDARD
  57.             VALUE OF FILE-ID IS "SECURITY.NEW".
  58.        01 OUT-STUDENT-REC.
  59.            03 ST2-NUMBER        PIC 9(6).
  60.            03 ST2-LAST-NAME     PIC X(16).
  61.            03 ST2-FIRST-NAME    PIC X(12).
  62.            03 ST2-CLASS-STAND   PIC XX.
  63.            03 ST2-GRADE-PNT-AVG PIC 9V99.
  64.            03 ST2-ACADEM-STATUS PIC X.
  65.            03 ST2-PHONE-NUMBER  PIC 9(10).
  66.            03 ST2-BIRTH-DATE    PIC 9(6).
  67.       * 
  68.        FD SECURE-PRINT
  69.            LABEL RECORD IS STANDARD
  70.             VALUE OF FILE-ID IS "SECURITY.PRT".
  71.        01 PRT-STUDENT-REC.
  72.            03 FILLER           PIC A(80).
  73.       *
  74.        WORKING-STORAGE SECTION.
  75.        01 WS-STUDENT-REC.
  76.            03 WS-ST-NUMBER        PIC 9(6).
  77.            03 WS-ST-LAST-NAME     PIC X(16).
  78.            03 WS-ST-FIRST-NAME    PIC X(12).
  79.            03 WS-ST-CLASS-STAND   PIC XX.
  80.            03 WS-ST-GRADE-PNT-AVG PIC 9V99.
  81.            03 WS-ST-ACADEM-STATUS PIC X.
  82.            03 WS-ST-PHONE-NUMBER  PIC 9(10).
  83.            03 WS-ST-BIRTH-DATE.
  84.                05 WS-ST-BIRTH-YEAR   PIC 99.
  85.                05 WS-ST-BIRTH-MONTH  PIC 99.
  86.                05 WS-ST-BIRTH-DAY    PIC 99.
  87.       *
  88.        01 WS-COUNTERS.
  89.            03 WS-PAGE-COUNT       PIC 99.
  90.            03 WS-LINE-COUNT       PIC 99.
  91.            03 WS-ST-RECORD-NUMBER PIC 999 VALUE 0.
  92.        01 WS-SECURITY-LEVEL       PIC 9 VALUE 0.
  93.        01 WS-VALIDATE             PIC X.
  94.        01 WS-STOP-RUN-FLAG        PIC X  VALUE " ".
  95.        01 WS-END-FILE-FLAG        PIC X  VALUE " ".
  96.        01 WS-FILE-STATUS          PIC XX VALUE "00".
  97.        01 WS-FILE-BAK-STATUS      PIC XX VALUE "00".
  98.        01 WS-PRINT-STATUS         PIC XX VALUE "00".
  99.        01 WS-REAL-DATE.
  100.            03 WS-REAL-YEAR        PIC XX.
  101.            03 WS-REAL-MONTH       PIC XX.
  102.            03 WS-REAL-DAY         PIC XX.
  103.        01 WS-TEMP-DATE.
  104.            03 WS-TEMP-DAY         PIC XX.
  105.            03 FILLER              PIC X  VALUE  "/".
  106.            03 WS-TEMP-MONTH       PIC XX.
  107.            03 FILLER              PIC X  VALUE  "/".
  108.            03 WS-TEMP-YEAR        PIC XX.
  109.        01 WS-RESPONCE             PIC X  VALUE SPACE.
  110.            88 WS-RESPONCE-S       VALUE "S" "s".
  111.            88 WS-RESPONCE-P       VALUE "P" "p".
  112.            88 WS-RESPONCE-Q       VALUE "Q" "q".
  113.            88 WS-RESPONCE-Y       VALUE "Y" "y".
  114.            88 WS-RESPONCE-YN      VALUE "Y" "y"
  115.                                         "N" "n".
  116.        01 WS-RESPONCE-JOB-CODE.
  117.            03 WS-ALPHA-RESPONCE   PIC XX.
  118.               88 WS-RESPONCE-A1   VALUE "AO" "Ao" "aO" "ao".
  119.               88 WS-RESPONCE-B1   VALUE "BO" "Bo" "bO" "bo".
  120.               88 WS-RESPONCE-C1   VALUE "CO" "Co" "cO" "co".
  121.               88 WS-RESPONCE-D1   VALUE "DO" "Do" "dO" "do".
  122.            03 WS-NUM-RESPONCE     PIC 9.
  123.            03 FILLER              PIC X   VALUE "-".
  124.            03 WS-ALPHA-2-REPONCE  PIC X.
  125.               88 WS-RESPONCE-A2   VALUE "A" "a".
  126.               88 WS-RESPONCE-B2   VALUE "B" "b".
  127.               88 WS-RESPONCE-C2   VALUE "C" "c".
  128.               88 WS-RESPONCE-D2   VALUE "D" "d".
  129.            03 WS-NUM-2-RESPONCE   PIC 99.
  130.        01 WS-VALIDATE-CLASS-STAND PIC XX.
  131.            88 WS-CLASS-STANDING   VALUE "FR" "fr"
  132.                                         "SO" "so"
  133.                                         "JU" "ju"
  134.                                         "SR" "sr".
  135.        01 WS-VALIDATE-ACADEMIC    PIC X.
  136.            88 WS-ACADEM-STANDING  VALUE "G" "g"
  137.                                         "W" "w"
  138.                                         "P" "p".
  139.        01 PRT-SCREEN-TITLE.
  140.            03 PRT-TEMP-DATE       PIC X(8).
  141.            03 FILLER    PIC X(18) VALUE SPACES.
  142.            03 FILLER    PIC X(28) VALUE "A DISPLAY OF STUDENT RECORDS".
  143.            03 FILLER    PIC X(9)  VALUE SPACES.
  144.            03 FILLER    PIC X(15) VALUE "SECURITY LEVEL ".      
  145.            03 PRT-SECURITY-LEVEL  PIC 9.
  146.        01 PRT-RECORD-NUMBER.
  147.            03 FILLER    PIC X(5)  VALUE SPACES.
  148.            03 FILLER    PIC X(26) VALUE "CURRENT RECORD NUMBER   : ".
  149.            03 PRT-ST-RECORD-NUMBER   PIC 999.
  150.       *
  151.        01 PRT-STUDENT-NUMBER.
  152.            03 FILLER    PIC X(5)  VALUE SPACES.
  153.            03 FILLER    PIC X(26) VALUE "STUDENT NUMBER          : ".
  154.            03 PRT-ST-NUMBER       PIC ZZZZZ9.
  155.        01 PRT-STUDENT-LAST-NAME.
  156.            03 FILLER    PIC X(5)  VALUE SPACES.
  157.            03 FILLER    PIC X(26) VALUE "STUDENT NAME      LAST  : ".
  158.            03 PRT-ST-LAST-NAME    PIC X(16).
  159.        01 PRT-STUDENT-FIRST-NAME.
  160.            03 FILLER    PIC X(5)  VALUE SPACES.
  161.            03 FILLER    PIC X(26) VALUE "                  FIRST : ".
  162.            03 PRT-ST-FIRST-NAME   PIC X(12).
  163.       *
  164.        01 PRT-BIRTH-DAY.
  165.            03 FILLER    PIC X(5)  VALUE SPACES.
  166.            03 FILLER    PIC X(26) VALUE "DATE OF BIRTH           : ".
  167.            03 PRT-ST-BIRTH-DAY    PIC 99.
  168.            03 FILLER    PIC X     VALUE "/".
  169.            03 PRT-ST-BIRTH-MONTH  PIC 99.
  170.            03 FILLER    PIC X     VALUE "/".
  171.            03 PRT-ST-BIRTH-YEAR   PIC 99.
  172.        01 PRT-PHONE-NUMBER.
  173.            03 FILLER    PIC X(5)  VALUE SPACES.
  174.            03 FILLER    PIC X(26) VALUE "PHONE NUMBER            : ".
  175.            03 PRT-ST-PHONE-NUMBER PIC 9(10).
  176.       *
  177.        01 PRT-CLASS-STANDING.
  178.            03 FILLER    PIC X(5)  VALUE SPACES.
  179.            03 FILLER    PIC X(26) VALUE "CLASS STANDING          : ".
  180.            03 PRT-ST-CLASS-STAND  PIC XX.
  181.        01 PRT-GRADE-POINT.
  182.            03 FILLER    PIC X(5)  VALUE SPACES.
  183.            03 FILLER    PIC X(26) VALUE "GRADE POINT AVERAGE     : ".
  184.            03 PRT-ST-GRADE-PNT-AVG PIC 9.99.
  185.        01 PRT-ACADEMIC-STATUS.
  186.            03 FILLER    PIC X(5)  VALUE SPACES.
  187.            03 FILLER    PIC X(26) VALUE "ACADEMIC STATUS         : ".
  188.            03 PRT-ST-ACADEM-STATUS PIC X.
  189.       *
  190.        SCREEN SECTION.
  191.        01 BLANK-SCREEN.
  192.            03 BLANK SCREEN.
  193.        01 PROG-DISCRIPTION.
  194.            03 LINE 1 COLUMN 3                VALUE 
  195.                       "PROGRAM TO DISPLAY AND/OR AMMEND STUDENT RECORDS 
  196.       -               "ACCORDING TO SECURITY LEVEL".
  197.        01 PROG-FINISH.
  198.            03 LINE 25 COLUMN 5               VALUE "TASK COMPLETE".
  199.        01 SCREEN-TITLE.
  200.            03 LINE 2 COLUMN 3    PIC X(8)    FROM  WS-TEMP-DATE.
  201.            03 LINE 2 COLUMN 26   HIGHLIGHT   VALUE
  202.               "A DISPLAY OF STUDEN